home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / card_3928.txt < prev    next >
Text File  |  1989-01-07  |  2KB  |  69 lines
  1. -- card: 3928 from stack: in
  2. -- bmap block id: 11685
  3. -- flags: 0000
  4. -- background id: 12278
  5. -- name: peekword
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=362 top=55 right=78 bottom=417
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Demo
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put empty into field "data"
  23.   ask "Peek At " with "411000"
  24.   if it is empty then exit mouseup
  25.   show  field "data"
  26.   put it into address
  27.   put address into field "data"
  28.   repeat with i=1 to 10
  29.     put space & Space & peekword(address,L) after field "data"
  30.     put last word of field "data" into address
  31.   end repeat
  32.   put return & return & "Click Mouse to Exit Demo" after field "data"
  33.   wait until the mouseclick
  34.   hide  field "data"
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part contents for background part 68
  40. ----- text -----
  41. Peekword returns the unsigned 16-bit integer stored at a given address. This value is represented in hexadecimal, but you may use the HexToDec XFCN provided in this stack to convert the value to a decimal if you wish.
  42.  
  43. A typical useage of peekword would be:
  44.  
  45.                     put peekword("411000") into temp
  46.  
  47. On the Mac  Plus, this would put the value 4CDF into the variable temp.
  48.  
  49. As an option, you may include a second parameter with the peekword XFCN. If peekword detects a second parameter, it returns a 2-line result that consists of the integer stored at the given address in the first line and the next viable address (the original address + 4) in the second line. This option provides a simple and effective way to use peekword in a script to peek into a range of addresses. 
  50.  
  51. See the demo on this card for an example.  
  52.  
  53. The address provided to peekword must be even or an error will result.
  54.  
  55. -- part contents for background part 69
  56. ----- text -----
  57. 411000  000E
  58. 411002  202B
  59. 411004  0056
  60. 411006  6100
  61. 411008  033C
  62. 41100A  6000
  63. 41100C  FE60
  64. 41100E  3012
  65. 411010  322A
  66. 411012  0002
  67. 411014
  68.  
  69. Click Mouse to Exit Demo